if (is.na(OR) || is.na(p_val)) return("-")
p_val_formateado <- format.pval(p_val, digits = 2, eps = 0.001)
estrellas_sig <- case_when(p_val < 0.001 ~ "***", p_val < 0.01 ~ "**",
p_val < 0.05 ~ "*", TRUE ~ "")
or_texto <- paste0(sprintf("%.2f", OR), " [", sprintf("%.2f", OR_CI_L),
"-", sprintf("%.2f", OR_CI_U), "]")
paste0(or_texto, estrellas_sig, " (p=", p_val_formateado, ")")
}
#########
filas_para_tabla_gt <- list()
años_mundial <- comparaciones_por_torneo$MUNDIAL$años
años_euro <- comparaciones_por_torneo$`EURO COPA`$años
# --- SECCIÓN MUNDIAL ---
torneo_actual_label <- "Mundial"
torneo_actual_data <- "MUNDIAL"
años_actuales <- años_mundial
etiqueta_comparacion_actual <- comparaciones_por_torneo$MUNDIAL$etiqueta_
comp
fila_mundial_año1 <- tibble(GT_Torneo_Grupo = torneo_actual_label, GT_Eti
queta_Fila = as.character(años_actuales[1]))
for(j in 1:nrow(definicion_columnas_tabla3)){
var_int <- definicion_columnas_tabla3$Variable_Interna[j]
col_df_name <- definicion_columnas_tabla3$Nombre_Col_df[j]
tipo_desc <- definicion_columnas_tabla3$Tipo_Descriptivo[j]
if(tipo_desc == "porcentaje"){
datos_fisher_m <- tabla_final_fisher %>% filter(Torneo_Base == torneo
_actual_data, Comparacion == etiqueta_comparacion_actual)
valor_display <- formatear_porcentaje_N(datos_fisher_m$Prop_Año1_Porc
, datos_fisher_m$Total_Año1)
} else {
datos_desc_m <- tabla_descriptivos_medianas %>%
filter(TORNEO == torneo_actual_data, YEAR == años_actuales[1], Vari
able_Analizada == var_int)
valor_display <- formatear_mediana_N(datos_desc_m$Mediana, datos_desc
_m$N_Obs)
}
fila_mundial_año1[[col_df_name]] <- valor_display
}
filas_para_tabla_gt <- append(filas_para_tabla_gt, list(fila_mundial_año1
))
fila_mundial_año2 <- tibble(GT_Torneo_Grupo = torneo_actual_label, GT_Eti
queta_Fila = as.character(años_actuales[2]))
for(j in 1:nrow(definicion_columnas_tabla3)){
var_int <- definicion_columnas_tabla3$Variable_Interna[j]
col_df_name <- definicion_columnas_tabla3$Nombre_Col_df[j]
tipo_desc <- definicion_columnas_tabla3$Tipo_Descriptivo[j]
if(tipo_desc == "porcentaje"){
datos_fisher_m <- tabla_final_fisher %>% filter(Torneo_Base == torneo
_actual_data, Comparacion == etiqueta_comparacion_actual)
valor_display <- formatear_porcentaje_N(datos_fisher_m$Prop_Año2_Porc